AAAAAAAAA 

AARAAAARK 

AAAAAAABRA 
AA BAL 
ABL ABA 
ARR AAA 
AAA Aaa 
AAA ARA 
AAA AAA 
AAA ALA 
AAA AAA 
KAR ADA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
ALA AAA 
AAR AAA 
AAR Aaa 
AAA AAA 
Aha AAA 


POOOOOOIOOOOOIAIAS 
AOOOAOOOIAIOAOIOOIAOIS 
OOM OAOAIOAAIAAIAIAOOA 


KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKKKKKKKK 
KKKKKKKKK 
KKKKKKKKK 

KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 


UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UYUUUUUUUUUUUUUU 
YUUUUUUUUUUUUUU 
UUUUUUUUUUUUUU 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


J 15 


*eF ILEte1DeeSTAINIT 


ed ee ee ee ee ed ed 
ee ee ee oo 


ee owe 
es em 
at ad ag Od Od Od ad Oe a) On nd Pd ed 
tt ad at Od at at nd ad ng Od Pt 


oxenne en 
—_os — 
2222 zz 
2222 22 


ee ag Od Og Og ag Ong ng Og Od Og Oe 
PO Eg Od 8 Og Be dy 
Cen) “oe 
oe oe) 


Scseees 2222 


based 2222 


ee os 
ee 


a 

os 

oe 

joe 

mw nNunwnw 

nn NNNM 

mw nw mn 

nw mw nwwn 

nw nw nw 

nw nn nn 

nw mn nw 

nn nn ann 
WMNWNWM "wn 
YWWMWnwn nn 


nn MMM 
nw NANMM 
“nw mn own 
nn nn nw 
nw nn nw 
“wn nn nn 
nw nn “wn 
mn nn nw 
NNMNM “un 
MMnn mn 
ot me 


LELLLLLLLL 
LLLLLLLLLL 


LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 


kK 15 

STAINIT Standalone BACKUP initialization 16-Sep-1984 00:58:51 AX-11 Bliss-32 V4.0-742 Pa 1 

12-86-1382 90: 28:3 EBACKUP.SRe STAINIT.B32;1 ” a 
; 1 1 MODULE STAINIT (ZTITLE sehengalone BACKUP initialization’ 
: ¢ § YY = 'v04-000' 
Pee 804 BEGIN | 
if B06 | | | 
: ? 097 } leueunteacecensnerentecensenseeteceereerereteererennenteanecennnerenterentns 
$ 'e % 
3 9 $009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 10 0010 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * | 
; i 9011 is ALL RIGHTS RESERVED. * 
Ps 2 e 
; ig $018 1 !@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | 
A 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; % Bote 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TG ANY * | 
; 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 pois : - TRANSFERRED. ad 
Ps 4 ® 
H 20 gogo 1 ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE « 
: $i 021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$ ¢ a8 § ; - CORPORATION. * 
Py > % 
: $i 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS & 
: $ Bose : oo SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : | 
4 i 
: 28 0038 i sindihiedienieniseneeatiinenieaeaialelanddeahiaiegs tinaiieiedelineeiaennatennntnaaeamnehbinee | 
. i] 
; 50 $080 Bs 
; 1 0031 1 !4+ 
3 2 it T4 1 ! FACILITY: 
: 3 B08 1! Backup/Restore 
3 034 1! 
co. a 0035 1 ! ABSTRACT: 
3 36 0036 1! This module contains the routines that initialize the standalone | 
eR 0037 1! BACKUP. 
; $ 0038 1! 
: ] 0039 1 ! ENVIRONMENT: 
; 40 0040 1! VAX/VMS user, executive, kernel mode. 
s 41 0041 1 !-<- 
3 og 94 4 1! 
; e7 Bose ; AUTHOR: M. Jack, CREATION DATE: 06-Jan-1981 
> 45 045 1 | MODIFIED BY: | 
: 46 Bpe8 1! 
3; 647 1! v03-003 CwH3003 CW Hobbs, 29-0 t-1983 
; 48 : ee Change image name to STANDALON.EXE to match change to | 
‘ 3 $3 : : standalone VMS packaging. | 
> 51 tt 1: v03-002 ACG53600 Andrew C. Goldstein, 10-Feb-1983 19:13 | 
: 2g 26 1! Output ident asetepe at Stertue. Condition disabling of 
: } 37 : : bugcheck code on DUMPBUG SYSGEN parameter. | 
; 36 55 1 v03-001 mLJ0085 Martin L. Jack, 30-Mar-1982 12:59 | 
; 26 P28 1 } Copy a small routine over EXESBUG_ CHECK that types out a | 
; 3 O57 1! console message ‘‘Bugcheck"’ if a bugcheck occurs. Since the 
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HERepcHRRE 90:88:51] Yate eLse 
console media containing the executive is not resident, the 
bugcheck code cannot be loaded. 
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Standalone BACKUP initialization 16-$ep-1984 90: 38: 3h AX-11 Bliss-32 V +4°5 $32, 


BACKUP.SRC STAINI 


906 1 REQUIRE ‘SRC$:COMMON'; 
i : LIBRARY ‘SYSSLIBRARY: {18'; 
11 1 
1133 i — JSB JSB: NOPRESER VE (2 3,4,5,6.7,8,9,10,11) 
= e oVae7e 
1198 1 JSB_RO= JSB(REGISTER=0) : PRESERVE (0.1.2,3,4,5,6,7,8,9,10,11), 
1174 1 JSB_PRESERVE= JSB:; 
1175 «#1 
1178 1 
1177 1 FORWARD ROUTINE 
1178 1 STA_INIT: NOVALUE ! Driver for initializatio 
1179 1 STATBUGCHECK: JSB NOVALUE, | Routine copied over EXESBUG. CHECK 
1180 1 STA_BUG_INSTALL, ! Install bugcheck code 
1181 +1 STA_HANDL ' Last-chance handler 
1182 1 PUTASG_ACTRIN, i $PUTMSG action routine for handler 
11%? } STA_RESTART: NOVALUE; ! Restart standalone version 
1185 1 
1186 1 EXTERNAL ROUTINE 
1187 1 BOOSACT IMAGE ! React ivate image 
1188 #1 CLISDCL T PARSE: ADDRESSING MODE (GENERAL) 
1189 1 and-alone command parser 
1190 1 LIBSGET_ COMMAND : ADDRESSING AHODE (GENERAL, 
1191 «#1 oat us from SYSSCOMMAND 
1138 1 CONSPUTCHAR : ADDRESSING _MODE (GENERAL) arse. 43" NOVA 
1137 ; aod 4 character ate to the console 
HB < ' CONSOWNCTY :ADDRESSING_MODE (GENERALS “SB. PRESERVE NOVALUE; 
1197 #1 
1198 1 EXTERNAL 
1199 1 EXESGL_FLAGS: BITVECTOR ADDRESSING MODE (GENERAL), 
1200 1 ! Executive flags Longword 
\¢0) 1 VERSION_STRING : VECTOR C BYTE], ! BACKUP version strin 
: 4 : BACKUPCAD; f Stand-alone command tables 
1204 1 
1205 1 EXTERNAL LITERAL 
1 5] 1 BACKUPS$_IDENT, : 
: 34 : EXESV_INIT: UNSIGNED (6); ! True if RMS and ACP are active 
1208 1 
1210 1 GSDEFINE(); ! Define global area 
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STAINIT Standalone BACKUP initialization 16-Sep-1984 00:58:51 AX-11 Bliss-32 V4.0-742 Page 4) 
y0e-000 STALINIT = Stand-alone BACKUP initialization 122868-1 383 Het YBACKUP SRE STAINIT.632;1 ¥ (3) 
; 108 1211 1 ZSBTTL ‘STA_INIT = Stand-alone BACKUP initialization’ 
; 19% : : : GLOBAL ROUTINE STA_INIT: NOVALUE= 
a is yin | 
; 118 1 1 1! FUNCTIONAL DESCRIPTION: | 
: 1146 121 1! This routine is the driver for initialization of the stand-alone 
BU SBT eee | 
: 117 1220 1 | INPUT PARAMETERS: 
; 133 : 1 : NONE | 
; 120 1 ¢ 1 | IMPLICIT INPUTS: | 
3 : 1 : ; ; NONE 
: 138 1226 1 i QUTPUT PARAMETERS: 
i 158 1558 i a 
> 126 1 3 1 {| IMPLICIT OUTPUTS: 
Boam i = | 
; 129 1 3 1 ! ROUTINE VALUE: 
: 13 i 3 ii baits 
: 13 1235 1 ! SIDE EFFECTS: 
, 33 1236 1! NONE 
3 (134 +4 1! 
3 6135 1238 1 !-- 
> 136 1259 1 
1g 1Be 3 pee 
: 139 1248 BUFFER: VECTORC132,BYTEJ, ! Command buffer 
: 140 124 DESC: BBLOCK(8); ! Local descriptor 
3: «6141 1244 BUILTIN 
Bh Weegee 
> 144 1267 FP: REF BBLOCK; 
ig BS 
> 147 158 ! Establish the general handler. Since this routine is called by the main 
3 168 \$23 : routine, this code will establish it as a stack handler in that routine. | 
3 150 1 3g -FPCSFSL_SAVE_FP] = STA_HANDLER; | 
2) eee: | 
: 138 1 2$ ! If we are really running standalone, copy our own routine over the exec's 
3 138 : 3 : bugcheck code. | 
: 136 33 if NOT -EXESGL_FLAGSCEXESV_INITJ | 
: 158 1261 SCMKRNL (ROUTIN=STA_BUG_INSTALL); 
2) ee: 
: 161 1264 2 ! Output the ident message. 
He eB 
: 164 1 86 SIGNAL (BACKUPS_IDENT, 3, ZCHARCOUNT (BACKUPSVERSION), VERSION_STRING, 0); 
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STAINIT Standalone BACKUP initialization 18-98 -1984 7:58:51 Ax-11 Bliss- 4.0-74 
900-000 STALINIT = Stand-alone BACKUP initialization 12-88-38 90: 28:3) BACKUP. SRC Statwnt aos 
1 RB 
. t 
\of } 19 Get the command. 
3; 169 1 if COM_FLAGSCCOM_STANDALONE] = TRUE; 
; 170 127 dO 
: 171 1274 BEGIN 
; i" 1275 DESCCOSCSW_LENGTH] = 132; 
. | SF 1276 DESC $43 a? = DSCSK_DTYPE_T; 
: 174 1277 DESCLDSCS$B_CLASSJ = DSCSK_CLASS_S; 
s 75 1278 DESCLDSCS$A POINTER] = BUFFER; 
; 176 : ie E ISSGET COMMAND (DESC, SDESCRIPTOR(ZCHAR(%0'012"), "S$ '), DESC); 
: 178 1281 UNTIL 
; 179 1e86 BEGIN 
; 180 128 IF .DESCCOSCSW_LENGTH] EQL 0 
3; «6181 1284 THEN FALSE 
3 ise 1285 3 ELSE CLISDCL_PARSE(DESC, BACKUPCMD) 
; 1286 2 END; 
3; «(184 1287 1 END; 


-TITLE STAINIT Standalone BACKUP initialization 
-IDENT \v04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL_BASE : 
00000 FREE_LIST: 

BLK 
00008 INPUT WAIT: | 
00010 REREAD_WAIT: 
00018 OUTPUT_WAIT: 


.BLKB 
00020 JPI_UIC:.BLKB 
00024 JPITUSERNAME : 


00030 JPL_DATED 
00038 JP1_NODE“DESC: 
00040 JP1_CURPRIV: 
00048 SYI_VERSION: 


~BLK 
0004C SYI_SID:.BLKB 
00050 RWSV_HOLD LIST: 


. L 
00058 RWSV_CRCI6: 
00098 RWSV_AUTODIN: 
00008 RWSV_FILESET ID: 

-BLKB 8 
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ACKUP initialization 1b-se -1984 00:58:51 AX-11 Bliss-32 V4.0-742 P 
tand-alone BACKUP initialization 12-Sep-19 4 11:54:04 YBACKUP SREISTAINIT 85201 _ 


OO0EO RWSV_VOLUME_ID: 
000EC RWSV.VOL“AUNBER: 
OO0EE RWSV_SEG_NUMBER: 
000F0 RWSV_FILE NUMBER 
000F4 RUSV_SAVE  GUAL: 
000F8 RUSV_SAVE FAB: 
OOOFC RWSV_CHAN: 

00100 RWSV_XOR‘BCB: 
00104 RWSV_IN_SE0s~ 
00108 RWSV_IN_SE0 0: 
0010¢ RWSV_IN_XOR SEQ: 
00110 RWSV_IN_KOR RFA: 
00116 RWSV_LOOKAHEAD: 
00117 RWSV_XORSIZE: 
00118 RUSV_IN_GROUP_S1 
0011¢ RWSV_IN_ERRORS: 
0011 RSV_IN_XORUSE : 
00120 RWSV_IN_ORGERR: 
00128 RWSV_IN_VBN: 
0C12C RWSV_IN_VBN_0: 
00130 RWSV_ALLOC: 
00134 RWSV_EOF: 

00138 RWSV_OUT’ SEQ: 
0013¢ RWSV_OUT' VEN: 
00140 RWSV_OUT-BLOCK_ COUNT: 
00144 RWSV_OUT_ERRORS: 
00146 RWSV_SEQ_ERRORS: 
00148 RWSV_OUT_GROUP_COUNT : 
00149 RWSV_PADDING: 


12 


em 
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alo ne BACKUP initialization 19~3ep p-1984 90: 38: 1 
4 3 4 BACKUP.SRC STAINI T.B32;1 


NIT = Stand-alone BACKUP initialization -Sep-19 
014C QUAL: “BLKB 
O1BC COM_SSNAME : 
001¢4 CoM, “VALIB TIBES: 
001C6 COM_FLAGS: 
001¢8 con PADDING: 
001¢9 COM_BUFF COUNT: 
OO1CA COM_1_SETCOUNT: 
001¢B COM_O_SET COUNT: 
001CC COM_I_STRUCNAME : 
00108 COM_O_ STRUCNAME : 
001€4 COM_O_BSRDATE: 
OO1EC ALT. SSNANES 
0020C INPUT_FUNC: ‘ 
00200 INPUT _aviPE: 
0020E OUTPUT_FUNC: 
0020F FAST _stpUEtEN: 
00210 INPUT_BEG: 
00210 INPUT_CHAN: 
00214 Input FLAGS: 
00216 INPUT_PADDING: 
00218 INPUT_FAB: 
0021¢ INPUT_NARO SN” 
00220 input gcd: 
00224 INPUT QUAL: 
00228 INPUT_BAD: 
0022¢ INPUT BLOCK: 
00230 INPUT_MAXBLOCK: 
00234 INPUT _MEDIA TD: 
00238 INPUT _NAMEDESC : 
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00240 
00248 
00248 
00250 
00258 
00260 
00268 
0026C 
00270 
00290 
00290 
00290 
00294 
0029C 
002A4 
002A6 
002A8 
002A8 
002AC 
OO2AE 
00280 
00284 
00288 
002BC 
002C0 
002C4 
002c8 
oo2cc 


w$2p-19B4 11:56:04 


-BLKB 
INPUT -STATBLK: 
INPUT_HDR ry 
INPUT _CREDATE: 
-BLKB 
INPUT _REVDATE: 
-BLKB 
INPUT -EXPDATE: 


INPUT _BAKDATE: 


INPUT_F ILEOWNER: 


«BLK 
INPUT _FILECHAR: 

-BLK 
INPUT -RECATIR: 
INPUT _HOR END: 
INPUT_END: 


INPUT_PROC List: 
INPUT_PLACEMENT : 


INPUT_VBN_LIST: 


INPUT_PLACE_LEN: 
INPUT_PADDING_2: 


OUTPUT pig: 
OUTPUT -CHAN: 
OUTPUT “FLAGS: 
OUTPUT “pABD ING: 
output Fabs 
OUTPUT_NAM: 
ourPut sie: 
OUTPUT_QUAL : 
OUTPUT BAD: 
OUTPUT _BLOCK: 


~BLK 
OUTPUT_MAXBLOCK: 


-BLKB 
OUTPUT_DEVGEOM: 
-BLKB 


251 AX-11 Bliss-32 V 
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in 


itialization 


F 16 
16- 


1360-1982 19 :8e:04 


0024 OUTPUT_ATTBUF : 
00364 OUTPUT_END: 
00364 LIST_TOTFILES: 
00368 LIST_TOTSIZE: 
0036C VERIFY_FAB: 

00370 VERIFY_USE COUNT: 
00374 VERIFY_QUAL: 
00378 COMPARE_BCB: 
0037C FAST_BUFFER: 
00380 FAST_BUFFER SIZE: 
00384 FAST_RVN: 

00385 FAST “panbitice 
00386 pin .vERLIRit: 
00388 FAST_VOL_BEG: 
00388 FAST_IMAP SITE: 
0038C FAST_IMAP: 

00390 FAST_HDR. “OFFSET: 
00394 FAST_BOOT_LBN: 
00398 FAST_VOL_END: 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: 

003A0 JOUR_HIBLK: 
003A4 JOUR_EFBLK: 
003A8 JouR INBLK: 
OO3AC JOUR_FFBYTE: 
OO3AE JOUR_INBYTE: 
00380 JOUR_STRUCT LEV: 
00382 Jour count: 
00383 JOUR_REVERSE® 
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17°S Stondealone BACKUE Initialization  teaseb-lobe Syieeio ache aes staunit 


— 
= 


BLKB 
00384 JOUR_EXS2: 


-BLKB 
00386 JOUR_PADDING: 

.BLKB 
00388 CHKPT HIGH SP: 
003BC CHKPT_LOW SP 
003CO CHKPT STACK: 
003C4 CHKPT -VARS: 
003C8 CHKPT_STATUS: 


LK 
QOOSCC DIR ~BEG: -BLKB 
OO35CC DIRUCHA 


a KB 
003D0 DIR_NAM: .BLKB 
00304 DIR-DEV_DESC: 


003D8 DIR_SEL Die 
OO3EO DIR_SEL_NIV: 
OO3EB DIR_STRUCLEV: 
003E9 DIR_LEVELS: 
OO3EA DIR_FLAGS: ¥ 
003EB DIR_STATUS: 2 
OO3EC DIR _sTRTigs 
0052C DIR_STACK: 


LK 
00790 DIR_SP: -BLKB 
00794 DIR-SEL_LATEST: 


«BLK 
00798 DIR_END:.BLKB 0 
00798 DIRTSCANLIMIT: 


0078¢ twput ations 
007c0 ourrut nit: 
007C4 CURRENT_MTL: 
007C8 CURRENT_VCB: 
0O7CC CURRENT_WCB: 
00700 ACL_FIB_ “OESCR: 


LK 
0708 ACL_FIB: “BLEB 
0818 ACLILENGTH: 


- = == = oor FF OF F FF FN DW 


oo f§ fF& fF fF & 


S 
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v04 s 
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oc 
0D 000000006 


000000006 


000000006 
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5E FF74 
BD 0000v 
00 
0000v 
000000006 
0 000000006 
EF 
6E 010E0084 
AE 08 


AS 
08 


H 16 


.BLKB 
0081C ACL_BUFFER: 


-BLKB 
00820 CRYP_IN_ CONTEXT: 


00824 CRYP_OU_ CONTEXT: 
00828 CRYP_DA -EguTEXT: 
0082C CRYP_DATA_ENCIV: 
00834 CRYP_DATA CODE: 
00838 CRYP_DATA KEY: 
00840 CRYP_DATA 1V: 
00848 CRYP_DATA CKSM: 
-BLKB 


»PSECT 
00000 P.AAB: 
00001 A 
00003 «BL 
00004 P.AAA: 
00008 


So 
o 


oe 
—@W"OOS CVT ONOOCIT OO NOOMOOO 


18: 


23: 


"Ooowom MODS LOW sN 
eo vvvv 
>cccc 
Onn 
: ahs 


SOOOSOSSCSOSOOOOSOSOOCOOOOoOoOoSoSoo 
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CODE .NOWRT,2 

<10> 

\$ \ 


1 


oL 3 
«ADDRESS P.AAB 


BOOSACTIMAGE, CLISDCL_PARSE 
LIBSGET_CO 
EONSPUTCHAR CONSOWNCTY 


ESGL 
BACKUPCMD, BACKUP$_ IDENT 
EXESV_INIT, SYSSCRRANL 


STA_INIT, Save aaa 
=140(SP); 

STA_HANDLER 

SPERESV. INIT, eee _FLAGS, 1% 


STA_BUG_ INSTALL 
We pp VSSCAKRNL 


VERS1ON_STRING 


LIBSSIGNA 


OM AGS. 
fo9t85e, DESC 
BUFF ER, DESC+4 


P.AAA 
B5°1escer conan 


ae 
a bs 


rome 


Shaina Standalone BACKUP inte tel izerten 1 
- STALINIT = Stand-alone BACKUP initialization 1 
00000000G 00 9F 00061 

04 AE 9F 00067 

000000006 00 O02 FB OOO6A 

CE 50 €9 00071 

04 00074 


; Routine Size: 117 bytes, Routine Base: CODE + 000C 
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$ep-1984 00:58:51 YAK~11 BL iss-32 v4.0-742 Page 12 
b- me re ae Me yeti ta ret et cae a 5 
PUSHAB BACKUPCMD + 1285 
PUSHAB D : 
CALLS #2, CLISDCL_PARSE ; 
BLBC i : 
RET : 1287 
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STAINIT Standalone BACKUP initialization 1b-Se -1984 00:58:51 AX-11 Bliss-32 V4.0-742 
yoe-000 STA_BUGCHECK = system bugcheck overlay 13-308- 1388 90:38 3a EBACKUP.SRe STAINIT.832;1 
86 ZSBTTL ‘STA_BUGCHECK - syeten bugcheck over y’ 
9 OWN STA_BUGCHECK BEGIN: PSECT (CODE) YES TORE i: 
FORWARD STA_BUGCRECK_MESSAGE: VECTORL14,BYTEJ; 


co 
~ooo 
oO 


ROUTINE STA_BUGCHECK?: JSB NOVALUE= 
i++ 
FUNCTIONAL DESCRIPTION: 
This routine is copied over EXESBUG CHECK by the initialization logic 
in order to sree bugchecks that might occur during execution of 
standalone BACKUP. 


INPUT PARAMETERS: 
NONE 


O00 Oo 


MEW SC OODNAOUS Win 


IMPLICIT INPUTS: 
NONE 


S 


MTPR(ZREF (IPL$_POWER), PRS_IPL); 
CONSOWNCTY(); 


P = STA BUGCHECK_MESSAGE; 
DECR L FROM 14 10 1 DO 
BEGIN 


s = .PLCO]): P = .P + 1; CONSPUTCHAR(.S); 
HALTO: | 
ND; 


WWW MOMINOND: oooocooceoeo woOoOod0000 
a ee ee a ee ee ee ee a ee ee a a a ddd 


ROPIPOPOPEPININININPINDININININININNNNNNNNNNNNINININININININININ 2 9 9 


306 OUTPUT PARAMETERS: 
305 NONE 
309 IMPLICIT OUTPUTS: 
319 NONE 
1 31¢ ROUTINE VALUE: 
1 31 NONE 
1 314 
1 315 SIDE EFFECTS: 
1 316 NONE 
1 317 
1 318 -- 
1 319 
1 320 
1 321 
2 $56 HALT, 
2 32 MFPR, 
2 324 MTPR; 
2 5 LOCAL 
2 $ + REF VECTORC BYTE), 
8 
9 
0 
4 
8 


WAAR PoNoNnofny 


00081 -BLKB_ 3 
00084 STA_BUGCHECK BEGIN: 
-BLKB 


STAINIT Standalon 
voe-000 STA_BUGCH 


ma 
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BACKUP initialization 16-Sep-1984 00:58:51 AX-11 Bliss-32 19°— 742 P 14 
CK = system bugcheck overlay 14-Sep 1984 99:38:34 BACKUP.SRCJSTA INI T.832;1 mgt (4) 


12 1F DA 00000 STA_BUGCHECK: 
MTPR = #31 1 
000000006 00 1 005 JSB CON néoun WNCTY + 1331 
2 v CF 9 MOVAB STA_BUGCHECK_MESSAGE, P : 1 é 
p OF MOVL A l 31 
0 A 00011 1$ MOVZBL (P + 1335 
000000006 if 14 JSB co ONSBUTCHAR : 
4 1 £5 OOO1A SOBGTR L, 1$ : 1333 
0 90010 ALT : 1337 
OO1E RSB + 1338 


; Routine Size: 31 bytes, Routine Base: CODE + 0084 


1373 ! INITIALTBYTE MESSAGE: PSECT(CODE) VECTORL14,BYTEJ 
1341 1 (ZCHAR(Z0°015", %0°012', 0), BuREnsck ZCHAR(%0°015", %0°012"))); 
1342 1 OWN STA_BUGCHECK_END: Psecricobes VECTORE 
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ACKUP initialization 
ALL = install bugcheck overlay 


L_*STA_BUG_INSTALL = install bugcheck overlay’ 
NE STA“BUG"INSTALL= pee Mare! 


nwm 

—- 
°s 

oa 


i FUNCTIONAL DESCRIPTION: 
! is routine is called in kernel mode to install the bugcheck routine 
over EXESBUG_CHECK. 
i INPUT PARAMETERS: 
NONE 
i IMPLICIT INPUTS: 
; Code between STA_BUGCHECK_BEGIN and STA_BUGCHECK_END. 
i OUTPUT PARAMETERS: 
NONE 


i IMPLICIT OUTPUTS: 
4 between STA_BUGCHECK_BEGIN and STA_BUGCHECK_END moved to 


i ROUTINE VALUE: 
i SS$_NORMAL 


CONAUE WN $$ O ODNAVEWN OC OONOULSW 


ODO OOOO II ee ya 


i SIDE EFFECTS: 
i NONE 


PRESERVE (0,1 000304555657 8,9,10,11); 


INI NOVALUE ADDRESSING_MODE (GENERAL), 
INI NOVALUE ADDRESSING_MODE (GENERAL) ; 


: UNSIGNED (6); 


: BITVECTOR ADDRESSING MODE (GENERAL), 
ADDRESS ING_MODE (GENERAL) ; 


NI= 
EXTERNAL ROUT 
INI SW 
INISR 
EXTERNAL LITE 
EXESBUG_CHECK: 


IF NOT .EXESGL_FLAGSCEXESV_BUGDUMP) 
THEN 


SHURE WV HOOD NOUR UNI OD 


bl 
-BEGIN, STA_BUGCHECK_BEGIN, EXESBUG_CHECK); 


ITABLE(); 
BUGCHECK_END-STA 
(J; ake syStem read-only 


ee ee ee ce ae ee ee a ee ee ee ce ee ee ee ee a ee ee ee ae ed ae a ed 
WWAW AI AWA NIAAA AI WIAA AWI AIAN ANNI WII 


ooo0o 
SRASLS 


E83 


3; Routine Size: 


15 000000006 00 
000000006 00 


35 bytes, 


ndalone BACKUP initialization 
BUG_INSTALL = install bugcheck overlay 


00 00 OA OD 000A 


68 63 65 68 63 67 75 42 
oa OD 33 


BC 


Routine Base: 


; 000000006 p 
0 000000006 1 


A Cll 
B ASCII 
B «BLK 
B4 STA_BUGCHECK END 
-BLKB 
-EXTRN 
oEXTRN 
OFFC 00000 STA_BUG_INSTALL: 
.WORD 
002 BBS 
OOA $B 
0010 MOVC3 
0019 JSB 
QOO1F 1$: MOVL 
00022 RET 


CODE + 0084 


0G E0 


6 


16- 
1 
4 


1. 
eo- 
Sep-1 


Be 99:30:00 


STA_BUGCHECK MESSAGE : 


AS 
AS 


Ax-11 Bl iss 
BACKUP.SRC 


a sta 
<139<105 


0 


sagt Mes ot INISRDONLY 


INI 
EXESV_BUGDUMP, EXESBUG_CHECK 


2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 

V BUGDUAP, EXESGL_FLAGS, 1$ 
TA_BUGCHECK_BEGIN, EXES$BUG_CHECK 
ONLY 


Pa 16 
9 65) 
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1 
16-Sep-19 4 00:58:51 ere Bliss-3 
4 11:54:04 B 


ion 
HANDLER = top level condition handler 14-Sep-19 : 
ZSBTTL "STA_HANDLER = top Level condition handler’ 
ROUTINE STA_HANDLER(SIGNAL ,MECHANISM)= 


aa 
+ 


FUNCTIONAL DESCRIPTION: 
This routine is established as a stack condition handler in the main 
routine for the standalone version. It calls $PUTMSG to output a 
signalled message. Then, if the message is fatal, it calls STA_RESTART 
to start the image over (or exit). 


INPUT PARAMETERS: 


GNAL = Standard VMS condition handler 
MECHANISM - parameters 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
$S$_ CONTINUE 


SIDE EFFECTS: 
If the message is of fatal severity, image is re-activated (or exits). 


Sl Re et et eed ee ee ee ee te ee ee ee te ee 


SIGNAL: REF BBLOCK, ! Signal parameters 
MECHANISM: REF BBLOCK; ! Mechanism parameters 


IF, SIGNALCCHFSL_S1G_NAME] NEO SS$_UNWIND 
BEGIN 


! Call SPUTMSG to issue the message, after stripping the PC and PSL from 
the signal arguments. 


SIGNALCCHF$L_SIG_ARGS) = SIGNA 


: C 
SPUTMSG(MSGVEC=.SIGNAL, ACTRIN 


LCCHFSL_SIG_ARGS) = 2; 
PUTMSG_ACTRIN); 


K 


If the message was fatal, restart the image (or exit). 

if -BBLOCKCSIGNALCCHFSL_SIG_NAME], STSSV_SEVERITY] EQL STS$K_SEVERE 
STA_RESTART(); 

END; 


eet 


— em 


V s 
ACKUP.SRCJSTAINIT.B3 


4 
| 
1 
STAINIT Standalone BACKUP initialization 1bes¢ -1984 58:51 Ax-11 Bliss-32 V4.0-742 P 1 
¥04-000 STA_HANDLER = top ‘evel condition handler eet) Pa VPP eta PEPE RCL SHE age 18 
353 1453 : $S$_CONTINUE 
i 1454 1 END? 
.EXTRN SYSSPUTMSG 
0004 00000 STA_HANDLER: 
52 04 AC D0 00002 so SThal @ 2 
00000920 = &F 04 Ad D1 iti CMPL  4(R2), #2336 ; 
1F 13 G00 EQL~Sésé18 : | 
62 02 ¢2 0001 SUBL2 #2, (R2) + 1641. 
7E 7C 0001 CLRO = = (§P) > 1442. 
0000v CF 9F 00015 PUSHAB PUTMSG_ACTRTN : 
52 DD 00019 PUSHL  R2 : 
000000006 00 04 FB 0001B CALLS #4, SYSSPUTMSG : | 
04 04 A2 03 00 ED 00022 CMPZV #0. #3, 4(R2), 3: 1447 
05 12 00028 BNEQ : | 
O000V CF 00 FB OO002A CALLS #0, STA_RESTART : 1449. 
50 01 DO OOO2F 1$: MOVL #1, RO : 1454 
04 00032 RET : | 


|; Routine Size: 51 bytes, Routine Base: CODE + 00D7 


<u“ 
— 
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i= 
_— 
“4 


WAWAANIANANAANW 
AACN 3= 


o 


bet 


| 3 Routine Size: 


D1 
Standalone BACKUP initialization 16-Sep-1984 90: 38:3) one, Bliss-32 V4.0-742 
PUTMSG_ACTRIN = SPUTMSG action routine 14-Sep-1984 11:54:04 BACKUP. SRCISTAINIT.B32;1 
1455 1 XZSBTTL ‘PUTMSG_ACTRIN = $PUTMSG action routine’ 
1028 : GLOBAL ROUTINE PUTMSG_ACTRIN(DESC)= 
1458 1 !4¢ 
1459 1! 
1460 1 ! FUNCTIONAL DESCRIPTION: 
1461 1! This routine is the SPUTMSG action routine for the general 
1086 13 handler. It uses the stand-alone LIBSPUT_OUTPUT to write each 
1407 : message line on the terminal. 
1465 1 ! INPUT PARAMETERS: ’ : 
rb ¢ : } DESC - Descriptor for message Line. 
1468 1°! IMPLICIT INPUTS: 
1469 1! NONE 
1470 1! 
1471 1 =! OUTPUT PARAMETERS: 
1e%6 1! NONE 
1473 1! 
1474 1°! IMPLICIT OUTPUTS: 
1475 1! NONE 
1476 1! 
1477 1. ! ROUTINE VALUE: oe 
1or8 : False, to prevent SPUTMSG from writing the Line. 
1480 1 ! SIDE EFFECTS: 
1481 1! NONE 
be 1! 
1483 1 !-- 
1484 1 
1485 2 BEGIN 
1486 2 EXTERNAL ROUTINE 
1487 2 LIB$PUT_OUTPUT; 
1488 2 
1489 2 
1490 2 LIBSPUT_OUTPUT(.DESC); 
7491 2 FALSE 
1492 1 END; 


.EXTRN LIBSPUT_OUTPUT 


0000 90009 .ENTRY PUTMSG_ACTRIN, Save nothing 
04 Ac OD 0002 PUSHL DES 
000000006 00 01 FB 0000 CALLS #1, LIBSPUT_OUTPUT 
50 D4 0000C CLRL = RO 
04 0000E ET 


15 bytes, Routine Base: CODE + 010A 


— 


1 
STAINIT Standalone BACKUP initialization 16-Sep-1984 90: 38:31 honed Bliss-32 V4.0-742 Page 4° 
v04-000 STALRESTART = stand-alone image restart 14-Sep-1984 11:54:04 BACKUP. SRCIJSTAINIT.B32;1 (8) 
95 1493 1 ZSBITL "STA_RESTART = stand-alone image restart’ 
96 1494 1 GLOBAL ROUTINE STA_RESTART: NOVALUE= 
97 1495 1 
98 1339 1 !+4 
99 1497 1! 
400 1498 1 ! FUNCTIONAL DESCRIPTION: 
401 1499 1! his routine is called when image execution should terminate. If 
40 1500 1! running online, it exits. If feng standalone, it restarts by 
ret 138) : calling BOOSACTIMAGE to re-activate the image. 
405 1208 1 ! INPUT PARAMETERS: 
406 1208 1! NONE 
407 1505 1! 
408 1506 1 ! IMPLICIT INPUTS: : : : 
re 1202 : } EXESGL_FLAGSCEXESV_INIT] = True if running online. 
411 1509 1 ! OUTPUT PARAMETERS: 
412 1510 1! NONE 
413 =) 3 . 
414 1512 1 ! IMPLICIT OUTPUTS: 
415 1335 1! NONE 
416 1514 1! 
417 1515 1 ! ROUTINE VALUE: 
418 1516 1! NONE 
419 1517 1! 
420 1518 1 ! SIDE EFFECTS: 
421 1519 1! Image is re-activated (or exits). Thus, control should not return. 
422 1520 1! 
423 13s! 1 !-- 
424 15 ; 1 
425 152 § BEGIN 
426 1524 ; 
esi 1363 2 If running standalone, re-activate the image. 
$¢? 1397 ; “4 NOT .EXESGL_FLAGSCEXESV_INITJ 
431 1368 BOOSACT IMAGE (SDESCRIPTOR('STANDALON.EXE')); 
$36 1530 
43 1531 ; 
434 1336 ! Re-activate failed or not executed. 
435 153 : 
436 1534 2 SEXITO); 
437 1535 1 END; 
45 58 45 2€ 4E 4F 4C 41 44 4E 41 54 53 00119 P.AAD: .ASCII \STANDALON.EXE\ : 
6p 1g6 -BLKB 2 
00000000 bat 8 P.AAC: .LONG 13 : 
00000000" 0012C -ADDRESS P.AAD : 
~-EXTRN SYSSEXIT 
0000 00000 ENTRY STA_RESTART, Save nothin > 14946, 
0A 00000000G 00 006 4 Boba BBS S*ERESV_INIT, EXESGL_FLAGS, 1$ 3 1927 | 
EB AF 9F QOOOA PUSHAB P.AAC : 1529 
000000006 00 01 FB 0000D CALLS #1, BOOSACTIMAGE : 


ne 


>. 
STAINIT Standalone BACKUP initialization 16-Sep-1984 00:58:51 VAX-11 Bliss-32 V4.0-742 Page 21. 
v04-000 STA_RESTART = stand-alone image restart 14-Sep-1984 11:54:04 CBACKUP.SRCISTAINIT.B32;1 (8) 
01 DD 00014 1$: PUSHL #1 3 1534) 
000000006 00 01 FB 00016 CALLS #1, SYSSEXIT : 
04 0001D RET 3; 1535) 


|; Routine Size: 30 bytes, Routine Base: CODE + 0130 


1 
BACKUP initialization 18-Sep-1984 t 90: 8: :51 AX-11 Bliss-32 V4.0-742 Page (35 


STAINIT Standalone 2 
v04-000 STALRESTART = stand-alone image restart 14-Sep-1984 4:04 BACKUP. SRC STAINI NIT.832; 1 
> 439 1238 1 END 
>; 440 1537 0 ELUDOM 
~-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
; Name Bytes Attributes 
: COMMON 2124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(2) 
; CODE 334 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Se eae oe ee eee ee Syabols ooo-eoo- Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 23 0 1000 00:02.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:STAINIT/OBJ=OBJ$:STAINIT MSRC$:STAINIT/UPDATE=(ENH$:STAINIT) 
Size: 279 code + 2179 data bytes 


Lexenes/CPU-Rin: 42401 
oY Used: 217 pages 
— ation Complete 
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